From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 May 1993 01:22:00 +0000 (+0000)
Subject: (find-alternate-file): Hide truename and inode number
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95869
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8bb272853d4aa811d3ea8725dbc10aa6f74e5b05;p=emacs.git

(find-alternate-file): Hide truename and inode number
temporarily, like the visited file name.
---

diff --git a/lisp/files.el b/lisp/files.el
index a9430029d56..77242e05e92 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -421,15 +421,21 @@ If the current buffer now contains an empty file that you just visited
        (error "Aborted"))
   (let ((obuf (current-buffer))
 	(ofile buffer-file-name)
+	(onum buffer-file-number)
+	(otrue buffer-file-truename)
 	(oname (buffer-name)))
     (rename-buffer " **lose**")
     (setq buffer-file-name nil)
+    (setq buffer-file-number nil)
+    (setq buffer-file-truename nil)
     (unwind-protect
 	(progn
 	  (unlock-buffer)
 	  (find-file filename))
       (cond ((eq obuf (current-buffer))
 	     (setq buffer-file-name ofile)
+	     (setq buffer-file-number onum)
+	     (setq buffer-file-truename otrue)
 	     (lock-buffer)
 	     (rename-buffer oname))))
     (or (eq (current-buffer) obuf)